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LIME JUST IFI ER 



Last month we said that we'd have a line Justif ication Pro9ram ready for 
this month's issue. The listin9 is included below. 

m 

We were writin9 the RAINBOW last month with a simPle word Processor that 
let us enter a whole line and make corrections before it was committed to the 
Print buffer on a Printer. That was an improvement over the Pro9ram that the 
manual had, mainly because it allowed us to backspace for corrections. In the 
case of the RAINBOW/ where we want to have lines which are ri9ht- Justified, 
that worked only to a de9ree — mainly because we had to tyPe the line and 
then 9o back and add sPaces to make the lines come out even on the ri9ht-hand 
side. While the was easier than tyPin9 the RAINBOW on a typewriter <j*)jiich 
would have required two tyPin9sMt was still a hassle. Thus was born the (j jiinl^ 
word Processor} be I ow . 

What haPPens here is that, using the INSTR Command, we search for sPaces 
in a line and then "Peel off" sPaces from the end of each line and add them 
to the spaces which are already between the words. Each line is entered as AS 
and then Pulled apart. SPaces are inserted, and then the line is Put back 
to9ether. There are two variations, one for a full-len9th line and the other 
for a half-len9th one. 



The Pro9ram requires the tyPist to sPace to a certain sPot on the line, in 
effect, to fill up the line with spaces Ca Printer mi9ht call these sPace 
bands). Those spaces are then repositioned in the line to make it come out 

evenly - 

The screen display is set uP so that there is a little black block for the 
typist to "aim" at. Once the typist 9ets close to the block, he or she Ju^t 
sPaces in blanks until the cursor covers the black block. Then, the line is 
entered into the Print buffer and Printed on the line Printer. 

As an added aid, the last line typed is shown on the bottom of the screen. 
One of the reasons for this is because we felt it would be easier for the 
tyPist to be9in the next line knowin9 what was on the Previous line — without 
the need of havin9 to look at the Printer. 



For short lines, Just hit ENTER when the line ends. However, a bu9 may — 
but will not always — aPPear if you. type a VERY short line. What can haPPen 
is that the one or two words in the line will rePeat themselves. If that 
does occur, Just sPace down and retyPe the same line. It will 9o away. 



The remainder of the Pro9r*to is devoted to the display and the 9ra.phic 
signature for the Pro9ram *nd the software. 



THE LISTING 



19 CLS 

20 CLERR1G00 
30 GOSUB410 

40 GOSUB380 t GOSUB390 « GOSUB400 ■ PR I NTSTR I HQS < 32 , 43 > 
30 PRINT 'PR I NT "SELECT MODE'" 

60 PRINT" <1> ONE-COLUMN FORMRT" * PRINT" <2> TWO-COLUMN FORMAT" r PRINT ; I 

NPUT" ENTER NUMBER"; 22 

63 ON 22 GOTO 100, 240 

70 PRINT: INPUT "ENTER ONLY 1 OR 2 PLERSE";22 

S0 ON 22 GOTO 100, 240 

90 IF 22<>1 OR 22<>2 THEN 70 

100 CLS 

110 N$»" "«L=4 

1 20 GOSUB380 i GOSUB390 i GOSUB400 - PR I NT " ONE-COLUMN FORMRT " 

130 PR I NTQ 1 60 f STR I NG$< 32 , 43 > J ! PR I NT627 1 , CHR$< 1 23 > ; " < --SPRCE TO HERE" f PRINTG233^ S 

TRING$< 32, 43 >; • PRINT6322, "... LRST LINE. .."« PRINTR* « PRINTG192, LINE INPUT R* 

140 IF RIGHT** Rf,l " THEN R$=RI GHT$< R$ , 1 > « R$»LEFT$< R$ , 79 > : GOTO 1 70 

130 PRINT#-2,R$ 

1*0 GOTO100 

170 B»INSTR<L,R*,N$> 

130 C*=LEFT*<R*,B> 

19© E$*RIGHT*<R*,79-B> 

200 D*»€f+N* 

210 R*«P$+E$ 

220 L=LEN< Dt >+4 

230 GOTO140 

240 CLS 

230 Nt= L»4 

260 GOSUB330 ' GOSUB390 ! GOSUB400 1 PRINT" TWO-COLUMN FORMRT" 

270 PRINTG160,STRING$<32,43); :PRIHT(5230,CHR$< 123>;"<— SPRCE TO HERE" : PRINT223G,. Z 
TRINGf < 32, 43 ).•' 1 PRINT6320, " ...LRST LINE. .." ^ PRINTR* • PRINTG192, "";< LINE INPUT f 
$ 

280 IF RIGHT$< R$, 1 )*" " THEN R$*RIGHT*< R$, 1 > • R*=LEFT* < R$, 37 > « GOTO310 

290 PRINT#-2,R* 

300 GOTO240 

310 B=INSTR<L,R*,N*> 

320 C$=LEFT$<Rf ,B> 

330 E$=RIGHT$< F\t, 37-B ) 

340 D$=C*+N$ 

350 fl*=D*+E$ 

360 L~LEN< D$ >+3 

3?0 GOTO230 

330 Fl*=CHR$<129HCHR*a31 >+CHR$< 133 > *F2*=CHR*< 132 >+CHR$< 141 > f F3t =CHR*< 133 > '■ F4-T- 
CHR*< 123+13 > » RETURN 

390 CLS « PRINTG34 , F 1 * ■ PR I NTG66 , F2$ « PRINTG93 .. F3* ' RETURN 
400 PRINTG99, "RLSOFT MINI -WORD PROCESSOR" ' RETURN 
410 PRINTS 193, "< C ) FRLSOFT, 1931" '■ FORX" 1 TO200 ! NEXT 
420 GOSUB380 

430 F0RX=376T034STEP-32 • GOSUB460 » NEXTX 
440 FOR X«31T034STEP-1 1 GOSUB460 ! » NEXTX 
430 RETURN 

460 Y=«X+32 ' 2-Y+32 • Q»2+32 

470 PRINTGX, Fl* ' PRINTGY, F2* ' PRINTQ2, F3* « PRINTSQ, F4$ « RETURN 



CBUG MOM I TOR 



CBUG, available on either taPe or 

ar, EPROM from THE MICROWORKS, is a 
full-scale mom i tor Pro9ram which also 
Allows you. to use your Color Computer 
as. a terminal. 

1 

i 

For instance, you can use it to ; 
hook UP with CompuServe — and you can 
do it for the same Price as the VIDEO-; 
TEX Pro9ram Put out by Radio Shadk. ; 
Since you also 9et a very Powerful 
monitor as well < in fact, you will be 
much more interested in the monitor I 
than i n the term i ma 1 caP ab i 1 i t i es > , 
CBUG is a real bargain at $29.95 on 
taPe or $39. SZ on the EPROM. 

All in all, there are 19 commands 
in CBUG. By far the most important 
one is the "M" command, which stands 
for memory examine and chan9e. With 
it you Just type in "M" and a 
imal address, and the display shows 
you a full ei9ht bytes of memory at 
the location you sPecify. The line 
numbers are shown, and, if the loca- 
tion is within eight bytes of the line 
the cusor Positions Itself ri9ht in 
front of the byte you specified. And, 
to change that byte, all you have to 
do is tyPe in the new hex idee imal 
number. No deleting or anything like 
that. CBUG then Positions the cursor 
in front of the next byte, and you can 
change that, too. 

By simPly moving the uP down, left 
and right arrows, you can examine the 
memory contents above and below the 
one you originally specified. It is a 
real nice way to manipulate memory. 

CBUG also makes it easy to examine 
the contents of the CPU, or to go back 
and forth between BRSIC and itself. 
Find, you don't have to worry about 
those hexi decimals, either, because 
there are simPle commands that allow 
you to convert hex to decimal and dec- 
imal to - hex. In fact, its a pretty 
easy way to get used to hex notation. 

■ 

Of course, you can also run your 
Programs and you can save them to taPe 
as well. CBUG also has commands to 
transfer memory blocks, load hexes in 
a quick fashion and change the CPU 
registers. 



computer as an intelligent terminal 
to a host system. 

CBUG is a fine Program. It is easy 
to use and gives a 9ood look into the 
inner workings of the Color computer. 
There are a number of helpful hints in 
the documentation and its easy to get 
CBUG u.P and goin9 Quickly. On the 
other hand, it is a Powerful tool that 
will continue to Prove very useful no 
matter how sophisticated you may be. 

Although I have the taPe version, 
the directions su.PPlied by THE MICRO- 
WORKS are very clear in getting the 
EPROM version installed — either in 
the Extended Color Basic socket inside 
the case or in a ROM Pack. Using the 
EPROM means, or course, that you don't 
give up any RAM for CBUG. 



CBUG is available by mail from THE 
MICROWORKS, P.O. Box 11 10, Del Mar, CA 
92Q14 in either tape or EPROM version. 



OFFICIRL NOT I CE 

the RAINBOW 
Published by FALSOFT 
Timber Ridge Dr. 
ProsPect, KY 40039 

Lawrence C> Fa Ik — Editor 
the RAINBOW is intended for the 
Personal use and Pleasure of its sub- 
scribers and reproduction by any means 
is forbidden. Use of Programs herein 
is for the single end use of subscri- 
bers, and any other use is Prohibited. 

TRS-80, Color Computer and Extended 
Color Basic are trademarks of Tandy 
CorP . 

All Programs herein are distributed 
on an "as-is" basis, without warranty. 

Subscriptions to the RAINBOW are 
t!2 Per year. 



You can also move a display Page, 

UP I nin Jhw- download and .an ^nf.n mr,,-Jp 
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HRNKS 
THE 



MEMOR I 



RR I M 



R STATUS 



Yes/ we do love the Color Computers 
but we 9et somewhat unhaPPy when wc 
9et ri9ht on the ed9e of usable mem- 
ory and realize there is some 1.3K 
being "eaten" up by hi9h-res 9raPhic 
screens we're not Plannin9 to use. 

There is a way. . . 



Just (POKE 23.. 6'NEWj when you Power < 
uP t and 5fo"Q[ will Thave an additional, 
1.3K of bonafide memory to use. We 
aren't exactly sure what this does/ 
but it seems to remove the hi9h-res 
9raPhic screen from memory. It ztays , 
9one so long as you don't PCLERR the 
Color Computer. 

You have to Plan in advance. The 
Poke doesn't w«rk if you leave off 
the 'NEW. and, if you have a Pro9r.?.m j 
residin9 in memory/ the ; NEW will' 
w i P e 1 

One way to avoid this Problem if 
you did not Plan ahead would be to 
CSRVE the Pro9ram/ reset the memory 
and then CLORD the Pro9ram back in. 

fls Bob HoPe said. . . 



Rlthou9h there is no way to count 
line automatically on the COLOR com- 
puter t there are a few thin9s you can 
do with Printer information. 

R lot of that information is in the 
manual you received with your COLOR 
computer * althou9h there is one tyPo- 
9raPhical error. That error is on 
Pa9e 209 of the Extended Color Basic i 
documentation^ which says you can set 
the line Printer width at decimal 113. 
The correct address to set the width 
is decimal 133. That's Pretty obvious 
to anyone who is lookin9 at the other 
addresses. 

However^ you can also Peek into the 
PIR at decimal 63314 to check the 
status of your line Printer. If the 
Peek returns a 4 or a 6/ then the 
Printer is on line. If it returns a 
5 or a 7/ then it is off line. 

i t 

Try some of the addresses at the 
decimal 149 - 156 addresses. The one 
which shows up ri9ht away is 153/ the 
comma field width. In short/ you do 
not have to have 16-sPace comma fields 
and can use any number you want- 



O O M 



RRINBOW RERDERS 



In cooperation with JRRB SOFTWRRE/ 
all readers of the RRINBOW are invited 
to Participate in a break - the - code 
contest. The winner/ or winners., will 
receive a free copy of the JRRBCODE 
pro9ram reviewed on these Pa9es. fill 
you have to do is decode the messa9e 
below and send it to J Joe Bennett/ 
Senior Pro9rammer/ JRRB Software/ 1169 
Florida St./ Imperial Beach/ CR 92Q32. 
If you break the code/ Bennett will 
send you a free copy of JRRBCODE. 

But.- you can be a winner anyway. 
Just mention the RRINBOW when Placin9 
an order for JRRBCODE and you will 9et 
a *2 discount off the retail Price of 



JRRBCODE. Orders can be sent to the 
address listed above. 



Rnd now the code . 



2CH4-. 
866-M 
62-& 
4-U 

4444-* 
263-Y 



2656- ! 

3399-S 

1-2 

2636-W 
2014-1 
62-U 



2Q6-B 

.G13-W 

.013-+ 

97-X 

4444-. 

4444-/ 



Have fun decoding! 



3339-' 

16-# 

2656-2 

7777-2 
2014-v 



TRHDY O I SC-O 



SOFTWARE REVIEW. . . 
jnRBCODE 



Recording to a "very highly Placed 
source" in a Texas location which will 
herein 9o unnamed/ the long-awaited 
Color Computer disc will make its 
aPPearance in Ru9ust or September. 

We Pass alon9 this information so 
you. can — if you are of such mind — 
9o ahead and Place your order for one 
of the disc systems now. 

In connection with the disc* Radio 
Shack will announce a memory u.P9rade 
for the Color Computer. We're not in 
on what form it will take., but it 
be uPPing the memory to 32K. 

What we DO know is that four disc 
drives will be available. Drive "O" 
will have a ROM-based DOS* so it will 
use up a minimum of that all - to - 
P rec i ous memory . It'll P 1 u.9 i nto the 
ROM Cart Port on the right side of the 
Color Computer. Word is the DOS will 
be about the same as TRSDOS* except 
no Debu9 and Clock functions. The 
reason for this* we understand., is 
because of basic differences between 
our 6303E and their Z-80- 

The Projected Price for Drive "9" 
is about $395. The other three are to 
be in the $30Ci-$400 area. Tandy ex- 
pects the waiting Period to be 30 to 
60 days* so.. if you want one quick* 
■,.te understand you can Place an order 
now. 

By the way.. 32K is about it as far 
as the Color Computer is concerned. 
The way we hear it* there IS another 
16K in there, but BRSIC can't use it. 
You CRN Poke into it — if you have 
the memory — and its a 9ood Place 
mach i ne 1 ar«9ua9e . But y ou can ' t J us t 
write a Program in BRSIC and use that 
additional 16K. 

Frankly* the way we see it* Tandy 
is chan9in9 its tune a little on the 
Color Computer. It was original ly 
Planned to be a "home" and "entertain- 



If the Japanese had had Joe Bennett 
and H. D- Stow on the side in World 
War II* there's a *ood chance that the 
United States never would have crack- 
ed their code ... the act which did 
lead to the end of the war. 

Bennett* chief Programmer for JRRB 
SOFTWRRE* and Stow have created a very 
nice code- writing Packa9e that anyone 
who likes — or is interested ■ — in 
code would be Proud to own. The Pro- 
gram is called JRRBCODE and is avail- 
able for t 14.33. Rddress is 11S9 Flo - 
rida St.* Imperial Beac h* CR* 92032 . 

JRRBCODE allows you to send code at 
three different levels? almost impos- 
sible to break., impossible to break* 
and "are you kidding"! The excellent 
documentation says that you would most 
likely need special equipment to break 
the toP code level — and we believe 
it. 

The Program is also fun to use and 
if you are at all interested in codes 
JRRBCODE is Just what you need. 

In addition to the program's main 
purpose.. it has some very inter est in9 
graphics < although in low res) to get- 
things going. We think the graphics 
are a bonus to the Program itself and 
are quite creative proving* of 

course that you don't HRVE to have 
Extended Color Basic to en Joy your 
Color CornPuter. 

We liked JRRBCODE. 



ment H machine and that was sort of a 
company line. We don't hear that so 
much any more. Rll do seem to hear 
is that because if <1> the screen and 
<2> the keyboard* the Color Computer 
isn't going to be very good as a word 
processing device. Well* we'll see. 



SOFTWARE REVIEW . . . 
S I GMON 



SIGMON< from D3.ta.Soft> Inc. * is a 
very well thought-out machine lan9ua? e 
mon i tor * m i m 1 -assemb 1 er > d 1 sassemb I 
ancT^ debugger" all roUed 'into a single 
taPer I t wis designed especially for 
the Color Computer and shows some well 
thou9ht out ideas. ! 

In effects there are a total of 18 
commands you cam use to access the 
memory of your computer * allowing you 
to do everything from reading the con- 
tents of the memory locations to set- 
ting breakpoints and examining the 
contents of the re9isters in the 630? 
CPU. Moreover* after you do all these 
things* you can run the assembly lang- 
uage Pro9ra.m you create . . . either on 
a real-time basis or steP - by -step. 
The last oPtion gives you the change 
to examine the contents of the CPU 
registers and see how your Program is 
affecting them. 

n really nice feature of SI GMON isi 
its ability to turn your Printer on or* 
off so that you can trace your Program 
and have a record of what happened, by i 
keeping the Printer on all the way 
through the Process, you will be able 
to see what you did and what the re- 
sult of it was. 

You can also set SI GMON UP to op- 
erate in either decimal or hex i decimal 
modes, as far as inPut is concerned. 
For those trying to coPe with both 
assembly language and hex i decimals for 
the first time* that can be a bonus. 
However* SIGMON's outPut is always in 
hex, so it can be confusing if you 
don't remember what you. are using to 
inPut. 

The DataSoft PeoPle have Jut to- 
gether a very nice Package, and a very 
attractive booklet of documentation. 
The little drawings of "Sisunon" do 
help the novice assembly language Pro- 
grammer understand the text a little 
better. 

! 

I would say SI GMON is a Perfect; 
Program to he IP someone 9et into the 
complicated area of assembly Ian9ua9e. 
One of the reasons for this is simPly 
because it is a helPful-tyPe Program' 
that sort of guides you. However* in' 
view of that, I do with the documen- ; 



tat ion were a little more complete for 
the novice. a couPle of short Pro- 
grams worked throu.9h steP - by - step 
using the SI GMON commands would 9o .? 
long way toward helping the be9inner 
understand a little more about all .the 
mysterious stuff. 

With that one complaint* its really 
a fine Program. Rnd* with a $29.9* 
Price tag* its in the Perfect spot for 
someone who wants to see what all this 
assembly language stuff is all about. 

Remember* though* SI GMON is a Mini- 
assembler and disassembler. In short, 
it trys to be — and succeeds — ir 
being a lot of things Packed in one 
tape. Because of that* its not like ? 

full-blown assembler* and doesn'* 
Pertend to be. But it is a good Plao: 
to start and the Price is certainly 
right for anyone who wants to see what 
assembly language is all about. 

SI GMON is available from Dat aSof t, 
Inc.* 19319 Business Center Drive, 
NorthridSe* CR 91324. 



DRIVER BACKUP 



This month's edition of the Tandy 
Newsletter carries some excellent 
information on making backups of disc 
files and information, fis a rule, it 
is always a good idea to make a back- 
up of everything so you don't lose it 
due to the various Problems that crop 
up with magnetic media. 

In order to make a backup of a 
machine language taPe* you need to use 
CSRVEfcb but you also need some other 
information that isn't always easily 
available. 

In the case of the Graphics Printer 
Driver we mentioned last month* you 
need this information to make the 
backup. That information* as in all 
CSFIVEM's is the Program's start, end 
and transfer addresses. To save you 
the trouble of looking for it, the 
ProPer command for the 16K Driver is 
CSnVEM'TTFX 16", 15744, 16376* 15744 . If 
5o"u use that, you can mak e backuP 
coPies of the Driver. 



USING THE EDITOR 



Of course a pri inter will he IP you. 
.3. great deal in debu99ing Pro9ram, be- 
causes for one thin9> you don't have 
to scroll your display back and forth 
to trace the workin9s of a Pro9rarn. ; 

But there can be other problems, 
too ~ such as remember in9 the value 
of variables and working with disPlays 
where it would be 9ood to be able to 
Print out the alphanumeric contents of 
the screen's disPlay. 

The followin9 Pro9ram will do Just 
that. Pind it will 9ive you the exact 
relationship of the display to the 
disPlay to the screen., since it Prints 
cut the screen on a one-f or-one basis 
to the Printer. 

It will not, however, disPlay the 
graphics symbols on the screen., nor 
will it 9ive a lower case Printout. 
The reason there is no lower case 
ability is shown in line 40 below. In 
order to deal with the character set 
it is necessary to convert the CHR* 
references found in the PEEKs. That 
is no bi9 Problem, and we exPect that 
most of you don't use lower case on 
the screen anyway, because the reverse 
9raPhic nature of lower case makes the 
screen look Peculiar. Despite these 
problems, we think you will find the 
screen Printer will be a 9ood utility 
you can use. 

The Program* 

10 FOR X=0 TO 16 

20 FOR Y«l TO 32 

30 Q=PEEK <<<X*32)+Y>+1023> 

40 IF Q=>36 RND Q<= B 127 THEN 0=Q-64 

M PRINT#-2,CHR*CQ>; 

60 NEXT V 

60 PRINT#-2,"" 

70 NEXT X 

80 END " 



We su.99est usin9 very hi9h line 
numbers for this Program, so that it 
can Just sit uP "on top" of whatever 
Program you happen to be workin9 on. 
Then, when you want to do a Print of 
the screen, simply GOTO the line 
number where the screen Printer is 



If you have Extended Color Basic, 
you will be happy to know that there 
have been a few thin9s left out of the 
Radio Shack documentation on usin9 the 
editor. Rnd, if you have a 9ood know- 
led9e of Level II Basics you mi9ht 
have felt cheated that all the editing 
commands in Level II were not included 
in Extended Color. 

Not to worry. They are all there, 
the manual Just "forgets" to mention 
three of them. The "missing" editing 
commands are "R", "E" and "Q". For 
those of you not familiar with Level I 
we will Present a short rundown of the 
changes below 1 

R f , Cancel and Restart >■ 
This command moves the cursor back 
to the beginning of the program line 
and cancels the editing changes you 
have made. 

E <Save Change and Exit)' 
This one makes the computer end the 
editing Process and save all the edits 
you have made. It is much the same 
as hitting ENTER. 

Q (Cancel and Exit)' 
When you decide you didn't really 
want to make those edits, "Q" is the 
command command d command to use. 

For "R" and "E" you cannot be in a 
subcommand mode. If you are, you must 
exit the subcommand <by hitting the 
UP arrow and SHIFT at the same time > 
before they will work. 



set up. 

Finally, you might wish to Place an 
! END instruction before the screen 
• printer p rogram — to make sure that 
whatever you are working on does not 
"sPill" into the screen printer. 



FIN EDUCRTIONRL PROGRAM FOR EVERYONE 



Here is a Pro9ra.ro that can really be of use to Just about everyone in the 
family. It is called AMORT arid it deals with money at interest. 

On one level/ it can be used as a regular interest Pro9ram that will helP 
you fi9ure out such thin9s as how much it will cost you a month to buy the new 
disc drives for your COLOR computer. That's not a bad thin9 to know. 

On the other level/ however/ there are some exP lainations built in to help 
teach those inf ami liar with the terms involved with money at interest Just 
what the terms mean. And there is a "cute" little default if y*u don't make 
the ProPer response to the amount of time the loan has to run question. 

AMORT is written for non-Extended Color Basic / which — as you know — does 
not have the ability to raise numbers to Powers. There is a way around that 
limitation of course/ and it can be found in lines 30 and 69. For those of you. 
who do have Extended Color Basic/ you mi9ht wish to chan9e those lines. The 
result will be a sli9htly more accurate result — especially on the more corn- 
Plicated calculations for lon9er Periods of time. 

However/ non-Extended Color users will have to chan9e the PRIHTUSIHG com- 
mands in lines 140-146/ 310 and 340. Just take out the reference to USING and 
the Pound- and do I lar-si9ns. That way/ the Pro9ram will run without any 
modification on your Part. 

Finally/ notice the use of the s/ariable PO to send output to the Printer. 
If you want.- you can eliminate the references to PO/ but you would Probably be 
better off leavin9 them in — in anticipation of the time when you mi9ht 9et a 
Printer. Just answer "No" to the question in line 32 and no harm is done. 



Here is the listing 



4 ' * AMORT PROGRAM * 
3 ' * <c) FALSOFT/ 1931 * 
6 ' ttttttttXttttttttttt***. 
10 C=0'CLS 

12 PRINT " THIS PROGRAM UILL GENERATE AN AMORITZATION SCHEDULE FOR MOST 
COMMON LOANS." 

13 PRINT 'PRINT ">PLEASE FOLLOW DIRECTIONS BEL0W<" 

14 PRINT STRINGS 32/"^" ) 

13 INPUT "FIRST/ UE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL 
LED THE Principal. WHAT IS THE PRINCIPAL" ;P 

16 CLS 'PRINT 'PRINT 

17 PA»P 

20 INPUT "NOW/ WE MUST KNOW THE NUMBER OF Period:. THE LOAN WILL RUN. IF 
YOU WISH TO ENTER THE PERIODS BY MONTH/ TYPE IN THE WORD ' MONTH. ' I 
F ITS YEARS/ TYPE IN 'YEAR.' WHICH IS IT".;A$ 

21 IF LEFTfC. A$/ 1 >-"M" THEN 270 

22 IF LEFT$< At/ 1 )="Y" THEN 260 

23 G0T0250 

30 CLS : PR I NT * PR I NT 

31 INPUT "LASTLY/ WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHA 
RGED ON THE LOAN. WHAT IS THE RATE" ; R 

32 INPUT " DO YOU WANT A PRINTOUT" P0$ ; IF LEFT$CP0$/ 1 >*"Y" THEN P0=1 
35 CLS 

40 I=R/"12« I«I/100 



30 T---1 'FOR X«l TO L 

60 T«=T*< 1 + 1 >'NEXT X«T-1/T 

70 T=l-T 

80 M=P*I/T 

90 G0SUB200 

100 FOR Z'l TO L 

120 P=< IMKP*I*100+.3:>>.''100 

130 B=M-A : P=P~B 

140 PRINTTABC0); ' PRINTU3ING"###" ; Z; « IF PO THEN PRINT#-2, TAB< O >; ^ PRINTtt-2, USING"* 
##" ; Z; 

142 PRINTTAB<3>; { PRINTUSING"##tt, ##" ;P; ? IF PO THEN PRINT#-2, TAB< 3 > ; • PRINTtt-2, 
USING"###,###.tt#";P.s 

144 PRINTTABC 14 >; * PRINTU3ING"tf, tt##. ##" ; Bj ^ IF PO THEN PRINT#-2, TAB< 14 >; * PRINTtt-2, 
USING"*, ###.tttt";B; 

146 PRINTTAB<23>; < PRINTUSING"tt,tttttt. #tt" ; A = IF PO THEN PR I NTtt-2 .< TRB< 23 > ; : PR I NTtt-2 , U 

SING"tt,tt##.##".i A 

160 Q=Q+1 : C=C+1 J RT^RT+R ! NEXT Z 

165 G0T0300 

170 END 

2G0 CLS'MR=n+.S03'MR=INTaiR*lO0 VI 00' IF PO THEN PRINTtt-2, TAB< 4 >" AMORTIZATION SC 
HEDULE" 

201 IF PO THEN PRINTtt-2, "PAYMENTS RRE *";MA — 

202 IF PO THENPRINT tt-2,TAB<4> "BALANCE" ; 

' 204 IF PO THEN PRINT tt-2,TAB<14> "PMT^PRIH" ; 
206 IF PO THEN PRINT tt-2, TAB< 24 !> "PMT^INT" 
208 PRINT "PRYMENTS RRE * H ;MA 

210 PRINTTRBC 4 >" BALANCE" TAB< 14 >"PMT/PRIN"TAB< 24 > ,, PMT^INT M 
220 RETURN 

250 CLS< 3 > ; PR I NT 282, "NO!"; 

252 PRINT G162, "NEIN! " i 

254 PRINT (2249, "N YET! "; 

255 PRINT G233," NO NO NO NO NO NO HO NO NO NO" 

257 PRINTG352," "; 'PRINT YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. E 

NTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW, TRY AGAIN, 

it 

253 FOR WN-1 TO 3200 : NEXT WN CLS • PR INT » PRINT •■ G0T020 

260 PRINT 

261 INPUT "O.K., HOW WILL YOU PLEASE ENTER THE NUMBER OF YERRS BEFORE YD 
U PAY OFF THE LORN " ; YR 

265 L-YR*12'GDT0 30 

270 PRINT 

271 INPUT "RLL RIGHT, HOW WILL YOU PLERSE ENTER THE NUMBER OF MONTHS IT 
WILL TAKE TO F'AY OFF THE LOAN " ; L 

275 GOTO 30 

300 IF PO THEN PRINT#-2, " " J PRINTtt-2, TRB<! 10 >" LOAN SUMMARY" ' PRINTtt-2, TAB< 10 

310 IF PO THEN PRINTtt-2, TABC 5 > "PRINCIPAL ■ PRINTtt-2,USING":t$tttttt.. tttttt ■ tttt' 1 .' PA 
320 IF PO THEN PRINTtt-2," PER IODS 5 "Lp PRIHTtt-2, " RATE; " ; « PRINTtt-2, US IMG" tttt 

.##".«R.i = PRINTtt-2, "":" 

330 IF PO THEN PRINT tt-2, STRINGS* 31 ,"-" > 

340 IF PO THEN PRINT tt-2, "TOTAL INTEREST' " ; •■ PRINTtt-2, USING" $$#*#, tttttt. tttt" ; AT 
350 IF PO THEN PRINTtt-2," " ; PRINTtt-2, " " = PRI.HTtt-2, " " 
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